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S 1 は じ め に 


V TI C-1311 ジ ョ イ ・ ス ティ ッ ク は , V I C-1001 パ バー ソナ ル ・ コ ンピュータ を 
より いっ そう 楽し ん で いた だ くだ め の ゲ ー ム ・ ツ ー ル で す 。 ジ ョ イ ・ ス ティ ッ ク 
は , 上 下 左右 の 移動 , 発射 と いっ た 内 容 を 含む ゲー ム で の 使用 に 最適 で す が , そ 
の 他 の ゲー ム に も 広く 応用 する こと が で きま す 。 

V I C-1311 ジ ョ イ ・ ス ティ ッ ク は , V 1 C-1001 の 右側 面 に ある コン トロ ー ル 
・ ポ ボー ト に 直接 差し こん で 使用 し ます 。 


S 2 標準 BASIC に よる プロ グラ ミン グ 


ジョ イ ・ ス ティ ッ ク を 使用 する た め の プ ログ ラミ ング は , VIC の 標準 BAS 
I C だ け で も ,。 V 1 C-1211(1211M ) スー パー エク スパ ンダ ー の JOY 関 数 を 使 
っ て も 組む こと が で きま す 。 ま ず , $ 2 て 標準 BASIC に よる プロ グラ ミン グ 
に つい て 説明 し , S 3 で JOY 関 数 に よる プロ グラ ミン グ を 説明 し ます 。 


























V I C シ ステ ム で は , ジョ イ ・ ス ティ ッ ク の 各 ス イッ チ は , 次 の よう に セッ ト し 
て あり ます 。 





JOY9.JOY1,JOY2 お よび FIREBUTTON( ま た は LIGHT 
PEN) 信号 は V 1 A 壮 1 (アド レス $9110 一 911F ) か ら 読み , JO Y 3 信号 は 
VIA 半 2 (アド レス $9120 一 912F ) か ら 読み ます 。 V IA 半 1, 壮 2 で , ジョ 
イ ・ ス ティ ッ ク に 関係 する アド レス は , 次 の と お り で す 。 


16 進 0 進 説 明 
$911F 37151 出 カ レジ スタ ・ ポ ー ト A (ハン ド シ ェ イク な し ) 
ビッ ト 7 6 5 4 3 2 1 0 





$9113 37139 DDRA (デー タ ・ デ ィ レ クシ ョ ン ・ レ ジス タ A ) 


ゃ 9120 37152 出 カ レジ スタ ・ ポ ー ト B 
ビッ ト 。 7 6 5 4 3 2 1 0 





JOY3 


$ 9122 37154 DDRB (デー タ ・ デ ィ レ クシ ョ ン ・ レ ジス タ B) 


ジョ イ ・ ス ティ ッ ク 入 力 を 読む に は まず , DDR (デー タ ・ デ ィ レ クシ ョ ン ・ 
レジ スタ ) の 対応 する ビッ ト を 9 に セッ ト す る こと に よっ て , ポー ト を 入力 モー 
ド に セッ ティ ング し ます 。 これ は P O KE に よっ て お こない ます 。 それ か ら , ポ 
ー ト の 各 ス イッ チ の 値 を PEEK で 読み と り ま す 。 

JOY9, 1, 2 お よび FIRE BUTTON に 関し て は , VIA 韻 1 の D 
DRA の ビッ ト 2 一 5 を 9 に セッ ト し な く て は な り ま せん が , オリ ジ ナ ル な 状態 
で 9 に セッ ト し て あり ます か ら 改 め て セッ ト す る 必要 は あり ませ ん [?PEE 
K (37139) 128]。 ポ ー ト A の PEEK は PEEK (37151) に よっ て お こない 
ます 。 

JOY3 は VIA 半 2 の DDRB の ビッ ト 7 を に セッ ト し , 他 の すべ て の ビ 
ッ ト を 1 に セッ ト し ます (POKE37154, 127)。 ポ ー ト B の 内 容 は PEEK (37 
152) に よっ て 読み と り ま す 。 JO Y 3 に つい て は , ここ で 考慮 し な く て は な ら な 
い 間 題 が 1 つの こっ て いま す 。 それは V IA 半 2 の ポー ト B は , キー ボー ド ・ ス 
キャ ン に も 使わ れ て いる と いう こと で す 。 したがって, VIA 半 2 の DDRB を 
JO Y 3 用 に セッ ト し た まま だ と , キー スキ ャ ン に 影響 が 出 て きま す 。 こ れ を さ 


ける た め に は , ボート B の 内 容 を 読ん だ あと , DDRB を オリ ジ ナ ル 値 に 戻し て 
お く 必 要 が あり ます (POKE37154, 255)。 
JO Y の 各 ス イッ チ が 0N に な っ て いる か , OFF に な っ て いる か は ,。 ポー ト 
の 対応 する ビッ ト と AND を と る こと に よっ て 調べ ます 。 た と えば , VI A 壮 1 
ポー ト A の ビッ ト 3 を ピッ クア ッ プ する に は , 2 13 三 8 と の AND を と り ま す 。 
AND を と っ て , 結果 が なら ば その スイ ッ チ は ON に な っ て いま す 。 


以上 の まとめ と し て , サン プル ・ プ ログ ラム を 示し ます 。 ス ティ ッ ク を 上 下 左 
右 に 傾け る と , UP, DOWN,。 LEFT, RIGHT と プリ ント し , ファ イア 
ボタ ン を 押す と BUTTON と プリ ント する プロ グラ ム で す 。 


プロ グラ ム 例 1 ・ 


19 POKE37181 9:PHm37151 : RB=37154 : PB=GZ152 

29 H=PEEKK(FR〉 :POKE RB,127: BsPEEK(PB) :PUKE RB,255 
199 IF〈RRND4〉=8THENPRINT"UP" 

119 IFCRRND8)=gTHENPRINT "DOMN" 

129 IFCRRND16)s9THENPRINT"LEFT" 

139 IF(BRND128)=9THENPRINT "RIGHT" 

149 IFCRRND32)=9THENPRINT "BUTTON" 

159 GOTOZ9 


ジョ イ ・ ス ティ ッ ク の 実際 的 な 使い 方 と し て は , 何 か の キャ ラク ター を 上 下 左 
右 に 移動 きせ る と いう も の が ふつ う で す 。 次 の プロ グラ ム は 赤い ハー ト を スィ イッチ 
の 方 向 へ 動か し ます (ファ イア ・ ボ タン を 押す と , 画面 トク リア され ます )。 


プロ グラ ム 例 2 


19 VRRM=7689:CRRIf=38499 :X=11 :Ya1 1 

29 PRINT"" 

39 POKE37151,9:PH=37151 :RB=37Z154 : PB=37Z152 
49 RsPEEKXPR)〉:POKE RB,127:B=PEEKPB〉 : PUKE RB ,255 
199 POKEVRRM+RTYK22,83 

119 PDKECRRMTRTT 洋 22, 4 

129 FORI=1TO189:NEXT 

299 IFKRRND4)=9RND(Y く 285THENY=T-1 

219 IFCRHND8)s9HNDTC22)THENY=T+1 

229 IF(RRHD16)=9RNDCXC>9)THENX=K- 1 

239 IFKBRND128)=gRHDCK く 21)THEHK=+1 

g49 IFKRRMHD32)=9THENPRIHTVHP 

259 GOTO39 


$ 3 JOY 関 数 に よる プロ グラ ミン グ 


前 述 し た よう に , V 1 C-1211(1211M ) スー パー エク スパ ンダ ー に は , ジョ イ 
・ ス ティ ッ ク を 使う の に た い へ ん 便利 な JO Y 関 数 が 追加 きれ て いま す 。 JOY 
関数 は , ジョ イ ・ ス ティ ッ ク を 4 本 使用 し た 場合 まで 考慮 され て お り , JOY(〈 ジ 
ョ イ ・ ス ティ ッ ク 番 号 〉)) で ステ ー タ ス 値 を 読み ます (ジョ イ ・ ス ティ ッ ク 番 号 
0, 1, 2, 3 )。 ジ ョ イ ・ ス ティ ッ ク 1 本 の 時 は JO Y(9) を 用 いま す 。 ステ ー 
タス 値 は 





l 


2 


で あたえ られ ます 。 プ ログラム 例 2 を JO Y(0 ) を 使っ た プロ グラ ム に 変え る と 
次 の よう に な り ま す 。 


19 VRM=7689 : し RM=38499 Xa11 :Yg11 
29 PRINT "3" 

39 H=JOYX9@) 

199 POKEVRRM+X+YK22,83 POKECRRM+X+Y ボ 22, 4 
119 FORIs1T0199:NEXT 

299 IF〈RRND1 FNDCY く < う 9)THENY= ヤ 1 
219 】F〈HHND2RNU(Y く 22)THENYgr+1 
229 IFCHHND4)RNDCX く < う 9)THENXmX こ 1 
239 IF(HRHNDS)HNDCXC21 )THENXmX+1 
249 IFCHHND16)THENPRINT"Q" 

259 GOTO39 
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